home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr26
/
pwrutls2.zip
/
KILLFILE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-04
|
249b
|
12 lines
100 OPEN "\KILLFILE.DAT" FOR INPUT AS #1
110 COUNT = 0
120 WHILE NOT EOF(1)
130 INPUT #1, F$
140 PRINT "Deleting "; F$
150 KILL F$
160 COUNT = COUNT + 1
170 WEND
180 PRINT USING "#####"; COUNT;
190 PRINT " file(s) deleted"
200 SYSTEM